181 GOSUB 184: GOSUB 180:V = 6:H = 2: GOSUB 177: PRINT "NOTE: "DQ$B$DQ$" HERE TAKES YOU BACK TO":V = V +2: GOSUB 177: PRINT "THE BEGINNING OF WILLWRITER."
182 H = 2:V = V +3: GOSUB 177: PRINT J$DQ$B$DQ$" & "RT$" AGAIN IF YOU":V = V +2: GOSUB 177: PRINT "WISH TO DO THIS. OTHERWISE JUST":V = V +2: GOSUB 177: PRINT "PRESS "RT$" TO RESUME.":F2 = 4: GOSUB 63: RETURN
185 GOSUB 138:F8 = 0: IF S = C7 OR S = B8 OR S = B7 OR S = B9 OR S = A7 OR S = B2 THEN F8 = 1
186 IF F0% >0 AND H% = 1 THEN F0% = 0
187 F9 = 0: IF E% >0 AND (S = B8 OR S = B7) THEN F9 = 1:S = B9:IS = TH% +S:IT = IS
188 NU = AS:LO = 60: GOSUB 142:NU = 1024:LO = 62: GOSUB 142: CALL 770: GOSUB 168: GOSUB 310: IF E% >0 AND (S = C7 OR S = A7 OR S = B2 OR S = B9) THEN 258
189 IF S = B2 AND F4 <1 AND D >0 THEN 258
190 IF (S = C7 OR S = A7) AND F4 <1 AND CH% >0 THEN 258
191 IF F0% >0 AND H% >1 THEN GOSUB 113: GOTO 185
192 IF F3 <1 THEN 195
193 F1 = 1: GOSUB 144:I$ = V$(IV%):F3 = 0: IF N = 1 THEN V = R2:H = HC:I$ = X$
194 F3 = 0: GOSUB 62: GOTO 204
195 IF V$(IV%) = U$ THEN V$(IV%) = X$
196 IF N >0 AND V$(IV%) < >X$ THEN 215
197 IF N >0 THEN 199
198 F1 = 1: GOSUB 144:F2 = 4: GOSUB 63: GOTO 206
199 F1 = 1: IF S = D6 THEN F1 = 0
200 GOSUB 144: IF N = 1 THEN V = R2:H = HC
201 IF N <3 THEN I$ = X$: GOSUB 62: IF S = D6 THEN RETURN
202 IF N <3 THEN 204
203 I$ = X$:C% = 0: GOSUB 62
204 IF S = D5 THEN RETURN
205 IF T$ = H$ OR T$ = QA$ THEN F3 = 1:V$(IV%) = I$: GOSUB 113: GOTO 185
206 IF I$ = H$ OR I$ = QA$ THEN T$ = I$: GOSUB 113: GOTO 185
207 IF F8 >0 THEN B% = 0: GOTO 212
208 IF I$ = Q$ OR I$ = QQ$ THEN GOSUB 92: GOTO 185
209 B% = 0: IF I$ = B$ OR I$ = BB$ THEN B% = 1:E% = 1: RETURN
210 IF S = A1 AND LEN(I$) <2 THEN GOSUB 82: GOTO 185
211 IF N = 1 AND I$ < >Y$ AND I$ < >N$ THEN GOSUB 82: GOTO 185
212 IF N <1 THEN RETURN
213 IF N <3 THEN V% = VAL(I$): IF S = A2 THEN IF V% <1 OR V% >ST% THEN GOSUB 82:I$ = X$: GOTO 199
214 GOSUB 240:V$(IV%) = I$: IF I$ = X$ THEN V$(IV%) = NU$
215 F1 = 4: GOSUB 144:V = 11: IF S = C3 OR S = C1 THEN V = 13
216 H = 1: GOSUB 177: CALL -958:I$ = V$(IV%): IF S < >A2 THEN 219
217 IF F7 <1 THEN F7 = 1: GOSUB 91
218 GOSUB 180: GOSUB 177:I$ = SN$:V = 11
219 IF S < >C1 AND S < >C2 AND S < >C3 AND S < >C4 THEN 222
220 IF I$ = C$ AND V$(5) = Y$ THEN I$ = CH$
221 IF I$ = S$ AND V$(3) = Y$ THEN I$ = V$(4)
222 V = 11:H = 1: GOSUB 177: CALL -958:H = 12:V = 12: GOSUB 177:L = LEN(I$): PRINT Z$"ANSWER IS:": IF L <212 THEN PRINT
223 GOSUB 171: PRINT : IF L <172 THEN PRINT
224 I$ = "IS THIS OK?--USE " +DQ$ +N$ +DQ$ +" TO CHANGE": GOSUB 173:F2 = 1: IF F8 >0 THEN F2 = 8
225 GOSUB 63: IF T$ = H$ OR T$ = QA$ THEN GOSUB 113: GOTO 185
226 IF I$ < >N$ THEN 243
227 IF FR% >0 AND GC% >0 AND S < >A7 THEN GOSUB 237: RETURN
228 IF N >2 THEN 231
229 V$(IV%) = X$: IF S = A2 THEN SN$ = X$
230 GOTO 185
231 I$ = V$(IV%):V = 12:H = 1: GOSUB 177: CALL -958: IF I$ = NU$ THEN I$ = X$
232 PRINT "YOU MAY MAKE CHANGES IN THIS ENTRY":F1 = 3: GOSUB 144:V = 15:H = 1: GOSUB 177
233 GOSUB 62: IF T$ = H$ OR T$ = QA$ OR I$ = Q$ OR I$ = QQ$ OR I$ = B$ OR I$ = BB$ THEN 204
234 GOSUB 240:V$(IV%) = I$: IF S < >C7 AND S < >B2 AND S < >A7 THEN 185
235 TV$(J% +1) = I$: IF I$ = X$ THEN GOSUB 304: GOTO 258
236 F4 = 1: GOTO 185
237 V = 16:H = 1: GOSUB 177: POKE 32,1: POKE 33,37: POKE 35,R4: CALL -958: PRINT " >CHANGES HERE AFFECT LATER SCREENS,": PRINT " SO YOU WOULD HAVE TO REVIEW THESE": PRINT " ANSWERS AND PERHAPS ANSWER SOME": PRINT " NEW QUESTIONS.": PRINT
238 PRINT " TYPE "DQ$Y$DQ$" TO MAKE THIS CHANGE<CTRL-G>":H = H +7: GOSUB 179: PRINT DQ$N$DQ$TC$"THE REVIEW";:F2 = 11: GOSUB 63: IF I$ = Y$ THEN GC% = 2:FJ% = FI%
239 RETURN
240 IF I$ = CC$ THEN I$ = C$
241 IF I$ = SS$ THEN I$ = S$
242 RETURN
243 IF I$ < >Y$ THEN 206
244 IF S = A2 THEN GOSUB 315
245 IF S < >B8 THEN 248
246 IF V$(21) = X$ AND G <1 THEN 259
247 J% = J% +1:TV$(J%) = V$(21):F4 = 1: IF M% = J% -1 THEN M% = J%
248 IF S < >C7 AND S < >B2 AND S < >A7 AND S < >B9 THEN RETURN
249 IF (S < >A7 AND S < >C7) THEN 253
250 IF V$(0) = X$ THEN 259
251 J% = J% +1:TV$(J%) = V$(0):F4 = 1: IF M% = J% -1 THEN M% = J%:CH% = M%
252 GOTO 258
253 IF S < >B2 THEN 257
254 IF V$(26) = X$ THEN 259
255 J% = J% +1:TV$(J%) = V$(26):F4 = 1: IF M% = J% -1 THEN M% = J%:D = M%
256 GOTO 258
257 IG = J%:G = M%: GOSUB 106
258 E% = 0: GOSUB 180:F1 = 0: GOSUB 144
259 IF M% <1 THEN B% = 1: RETURN
260 S1$ = "CHILD":I$ = S1$ +"REN":S2$ = "NAMED": IF S = B2 THEN S1$ = "GRANDCHILD":I$ = S1$ +"REN"
261 IF S = B9 THEN S1$ = "BEQUEST":I$ = S1$ +S$
262 V = 1:H = 1: GOSUB 177: PRINT SPC( 35);: GOSUB 177: PRINT " THE ";I$;" YOU HAVE ";S2$;":": PRINT : IF M% >MM% -2 THEN POKE 35,R2
263 EC% = 0: FOR I = 1 TO M%:FE% = 0:H = 2: IF I >9 THEN H = 1
264 GOSUB 179:I$ = TV$(I): IF LEFT$(I$,1) < >U$ THEN 267
265 EC% = 1: IF S = B9 THEN I$ = HY$ +DQ$ +"R" +DQ$ +" WILL LET YOU USE THIS SPACE"
266 IF S = C7 THEN FE% = 1:I$ = MID$ (I$,2,31)
267 IF LEN(I$) >32 THEN I$ = LEFT$(I$,31) +AS$:FL% = 1
268 PRINT I"."I$;: IF FE% >0 THEN INVERSE : PRINT "X";: NORMAL
269 PRINT : NEXT :V1 = PEEK(37) +3: IF M% <MM% THEN PRINT
270 IF S < >C7 THEN 278
271 PRINT SP$J$"NUMBER ";: IF EC% <1 THEN PRINT "OF CHILD TO EXCLUDE": GOTO 273
273 PRINT " >TYPE "DQ$Y$DQ$" WHEN LIST IS OK": IF EC% >0 THEN PRINT SPC( 6);: INVERSE : PRINT "X";: NORMAL : PRINT " MEANS CHILD IS EXCLUDED";
274 V1 = V1 +2:N = 2:I$ = X$: GOSUB 62:CI = VAL(I$): IF I$ = Y$ THEN 282
275 IF CI <1 OR CI >CH% THEN 258
276 C% = 0:I$ = TV$(CI): IF LEFT$(I$,1) = U$ THEN TV$(CI) = MID$ (I$,2,78): GOTO 258
277 TV$(CI) = U$ +I$: GOTO 258
278 PRINT J$DQ$"A"DQ$"-TO ADD ANOTHER "S1$:H = 6: GOSUB 179: PRINT DQ$"R"DQ$"-TO REVIEW OR CHANGE ONE": GOSUB 179: PRINT DQ$DD$DQ$"-TO DELETE ONE": GOSUB 179: PRINT DQ$Y$DQ$"-IF LIST IS OK AS IS";
279 IF M% >MM% THEN V = 19:H = 1: GOSUB 177: CALL -868: PRINT "*NO MORE CAN BE NAMED*": PRINT J$
280 V = R3:H = 2: GOSUB 177: PRINT J$"APPROPRIATE LETTER & ";RT$;: IF FL% >0 THEN V = R4:H = 2: GOSUB 177: FLASH : PRINT AS$;: NORMAL : PRINT ":TRUNCATED FOR DISPLAY ONLY";
304 IX = J% +1: IF IX <M% THEN FOR I = IX TO M% -1:TV$(I) = TV$(I +1): NEXT
305 IF (S = C7 OR S = A7) AND CH% >0 THEN CH% = CH% -1:M% = CH%: GOTO 309
306 IF S = B2 AND D >0 THEN D = D -1:M% = D: GOTO 309
307 IF S = B9 AND G >0 THEN G = G -1:M% = G: GOTO 309
308 M% = 0
309 J% = M%:C% = 0: RETURN
310 ON S GOTO 311,311,311,345,311,345,346,345,345,345,394,350,351,352,345,311,337,338,339,341,342,341,343,386,345,346,361,344,361,344,361,344,398,311
311 RETURN
312 V = 17:H = 15: GOSUB 177: FLASH : PRINT "WARNING:": NORMAL : PRINT "ALL INFORMATION WILL BE ERASED!": PRINT J$DQ$Y$DQ$" TO ERASE EVERYTHING": PRINT J$DQ$N$DQ$" TO NOT ERASE":F2 = 11: GOSUB 63: IF I$ < >Y$ THEN 314
316 V = V +2: GOSUB 178:I$ = "YOU MUST BE " + STR$(AG%) +" YEARS OLD,": GOSUB 173:V = V +2: GOSUB 178:I$ = "AND OF SOUND MIND.": GOSUB 173: IF LEN(AN$) <5 THEN 318
317 V = V +4: GOSUB 178:I$ = "SPECIAL NOTE:": GOSUB 173:H = 2:V = V +2: GOSUB 177: PRINT AN$;
318 F2 = 0: GOSUB 63: RETURN
319 FL% = 0: FOR I = 1 TO NS%:K(I) = 0: NEXT : IF V$(5) < >Y$ THEN CH% = 0:K(A7) = 1:K(C6) = 1:K(A8) = 1:V$(6) = X$:V$(20) = X$:V$(0) = X$
320 IF V$(6) < >Y$ THEN K(C8) = 1:K(C9) = 1:K(D1) = 1:K(D2) = 1
321 IF V$(16) < >Y$ THEN K(B1) = 1:V$(19) = X$
322 IF V$(19) < >Y$ THEN K(B2) = 1
323 IF V$(20) < >Y$ THEN K(C7) = 1
324 IF V$(11) = X$ OR V$(11) = NU$ THEN K(C9) = 1
325 IF V$(14) = X$ OR V$(14) = NU$ THEN K(D2) = 1
326 IF V$(9) = X$ OR V$(9) = NU$ THEN K(C4) = 1
327 IF V$(10) = X$ OR V$(10) = NU$ THEN K(C2) = 1
328 IF V$(17) = X$ OR V$(17) = NU$ THEN K(D4) = 1
329 K(B3) = 1: IF CP >0 THEN K(B3) = 0:K(B4) = 1:K(C5) = 1
330 IF V$(3) < >Y$ THEN K(A5) = 1:K(B3) = 1:K(B4) = 1:K(C5) = 1:V$(4) = X$
331 K(B7) = 1:K(B8) = 1:K(B9) = 1: IF (S = B0 AND V$(24) = Y$) OR S = B7 OR S = B8 OR S = B9 THEN K(B8) = 0:K(B7) = 0:K(B9) = 0
332 IF V$(24) < >Y$ THEN K(B0) = 1
333 IF B% >0 THEN K(B8) = 1:K(B7) = 1:K(B9) = 1:K(C7) = 1:K(A7) = 1:K(B2) = 1
334 IF CH% <2 OR (V$(7) < >C$ AND V$(8) < >C$ AND V$(9) < >C$ AND V$(10) < >C$) THEN K(C6) = 1:K(C7) = 1
335 CH$ = "YOUR CHILD": IF CH% >1 THEN CH$ = CH$ +"REN"
336 RETURN
337 GOSUB 355: GOTO 361
338 GOSUB 355: GOTO 364
339 GOSUB 355: IF F9 >0 THEN RETURN
340 GOSUB 364: GOSUB 361: GOTO 372
341 GOSUB 373: GOTO 361
342 GOSUB 384: GOSUB 380: GOTO 372
343 GOSUB 385: GOSUB 380: GOTO 372
344 GOSUB 361: GOSUB 372: GOTO 387
345 V = 11:H = 5: GOSUB 177: PRINT "IF YES TYPE "DQ$Y$DQ$" AND "RT$:V = 13: GOSUB 177: PRINT "IF NO TYPE "DQ$N$DQ$" AND "RT$: RETURN
346 IF CH% <1 THEN FC%(1) = 1
347 M% = CH%: IF CH% >0 AND E% >0 THEN J% = CH%
348 V = 10:H = 33: IF CH% >0 AND FC%(1) <1 THEN J% = CH%:F = 1: GOSUB 96:V$(0) = TV$(J%)
352 V = 15:H = 2: GOSUB 177: IF V$(3) < >Y$ THEN CALL -868: RETURN
353 H = 3: GOSUB 177: IF CP >0 THEN PRINT Z$"SURVIVING SPOUSE'S SHARE":V = V +1: GOSUB 177: PRINT "OF COMMUNITY PROPERTY": RETURN
354 PRINT "PROPERTY OWNED BY "Z$"SPOUSE": RETURN
355 IF G >0 AND E% >0 THEN M% = G:J% = G
356 V = R1:H = 15: IF G >0 AND FC%(3) <1 THEN M% = G:J% = G:F = 3: GOSUB 96:V$(21) = TV$(J%)
357 IF S = B7 AND SX% < = J% THEN SX% = J% +1
358 IF S = B9 THEN V = 1:H = R4
359 IF F9 >0 THEN RETURN
360 GOSUB 177: PRINT "BEQUEST #"SX%;: RETURN
361 V = 11:H = 1: IF S = C4 OR S = C2 THEN V = 12
362 GOSUB 177: PRINT "IF YOU USE AN ADDRESS, SEPARATE THE":V = V +1: GOSUB 177: PRINT "NAME, STREET, AND CITY & STATE WITH":V = V +1: GOSUB 177: PRINT "SEMICOLONS";: IF S < >C4 AND S <C2 THEN PRINT " (;)";
363 PRINT ".": RETURN
364 V = 8: IF S = B9 THEN V = 3
365 I$ = V$(22):L = LEN(I$): IF L >72 OR (S = B9 AND L >69) THEN I$ = "THIS PERSON (OR INSTITUTION)"
366 IF L <37 AND S = B8 THEN V = V +1
367 IF S = B9 THEN I$ = "IF " +I$
368 GOSUB 178: GOSUB 173: IF S = B8 THEN RETURN
369 I$ = V$(21): IF LEN(I$) >108 THEN I$ = "THIS BEQUEST"
370 V = 6:L = LEN(I$): IF L <73 THEN V = V +1
371 GOSUB 177: GOSUB 173: RETURN
372 V = 20:H = 1: GOSUB 177: PRINT SP$J$RT$" IF YOU DON'T WANT TO":V = V +1: GOSUB 177: PRINT "NAME AN ALTERNATE";: RETURN
373 V = 6:H = 2: GOSUB 177: IF V$(5) < >Y$ THEN 377
374 IF CH% <2 THEN PRINT "USE "DQ$C$DQ$" TO NAME "CH$
375 IF CH% >1 THEN PRINT "USE "DQ$C$DQ$" TO NAME YOUR CHLDRN EQUALLY"
376 V = V +1: GOSUB 177: PRINT "OR ";
377 IF V$(3) = Y$ THEN PRINT "USE "DQ$S$DQ$" TO NAME "Z$"SPOUSE":V = V +1: GOSUB 177: PRINT "OR ";
378 PRINT "NAME PERSON(S) OR CHARITY(S)": PRINT " TO RECEIVE THIS PROPERTY IN EQUAL": PRINT " SHARES"
379 RETURN
380 T$ = V$(10): IF S = C4 THEN T$ = V$(9)
381 V = 12:H = 1: GOSUB 177: IF V$(3) = Y$ AND T$ < >S$ THEN PRINT "USE "DQ$S$DQ$" TO NAME YOUR SPOUSE"
382 IF V$(5) = Y$ AND T$ < >C$ THEN PRINT "USE "DQ$C$DQ$" TO NAME YOUR CHILDREN"
383 PRINT "USE SEMICOLONS TO SEPARATE ELEMENTS": RETURN
396 V = 13:H = 24: IF D >0 AND FC%(2) <1 THEN J% = D:F = 2: GOSUB 96:V$(0) = TV$(J%)
397 GOTO 349
398 II = 0: IF (V$(7) = C$ OR V$(8) = C$ OR V$(9) = C$ OR V$(10) = C$) AND CH% >1 THEN II = 1: IF V$(3) = Y$ AND V$(6) = Y$ THEN RETURN
399 SPEED= 225: IF EF = 0 THEN SPEED= 120:EF = 1
400 V = 2:H = 11: GOSUB 177:I$ = " ERASING ITEMS NOT NEEDED ": INVERSE : FOR I = 1 TO 26: PRINT MID$ (I$,I,1);: GOSUB 81: NEXT : NORMAL : IF V$(3) < >Y$ THEN V = 7: GOSUB 404
401 IF II = 0 THEN V = 13: GOSUB 404
402 IF V$(6) < >Y$ THEN V = 15: GOSUB 404:V = V +1: GOSUB 404
403 V = 2: GOSUB 404: SPEED= 255: RETURN
404 GOSUB 177: FOR I = 1 TO 26: GOSUB 81: PRINT SP$;: NEXT : RETURN
405 H = 1: IF I$ = C$ THEN I$ = CH$:V = 19: GOSUB 177: PRINT "(SEE MANUAL SECTION 7.C FOR DETAILS)";: IF CH% >1 THEN I$ = "ALL THE CHILDREN":H = 3:V = 9: GOSUB 177: PRINT " "
406 IF I$ = S$ THEN I$ = "YOUR SPOUSE, " +V$(4)
407 I$ = "IF " +I$:L = LEN(I$): IF L >72 THEN I$ = LEFT$(I$,71) +AS$
408 V = 3: GOSUB 177: GOSUB 173: RETURN
409 V = 7: GOSUB 177: GOSUB 173: RETURN
410 V = 1:H = 24: GOSUB 177: PRINT I$: RETURN
411 GOSUB 180: GOSUB 168:V = 10:H = 1: GOSUB 177: PRINT "OOPS..A PROGRAM ERROR!": PRINT : PRINT "PLEASE REPORT ERROR NUMBER " PEEK(222): PRINT : PRINT "AT LINE NUMBER " PEEK(218) + PEEK(219) *256: END
419 NE% = 33: DIM VE(NE%),HE%(NE%): DATA 2,3,4,5,6,8,9,10,11,12,13,15,15,16,18,19,19,20,21,2,3,5,6,8,10,11,13,14,15,16,18,19,21: FOR I = 1 TO NE%: READ VE(I): NEXT
420 FOR I = 1 TO NE%:HE%(I) = 1: IF I >19 THEN HE%(I) = HC
421 NEXT :F1$ = " SEE MANUAL PART ":NC% = 13: DIM E1%(NC%),E2%(NC%):E1%(1) = A1:E1%(2) = A2:E1%(3) = A3:E1%(4) = A4:E1%(5) = A5:E1%(6) = A6:E1%(7) = B6:E1%(8) = C1:E1%(9) = C3:E1%(10) = C6:E1%(11) = C8:E1%(12) = D1:E1%(13) = D3